home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / Delphi 3.0 / DATA.Z / MENU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-30  |  2.6 KB  |  102 lines
  1. { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.   :: QuickReport 2.0 for Delphi 1.0/2.0/3.0                  ::
  3.   ::                                                         ::
  4.   :: Example reports project                                 ::
  5.   ::                                                         ::
  6.   :: Copyright (c) 1997 QuSoft AS                            ::
  7.   :: All Rights Reserved                                     ::
  8.   ::                                                         ::
  9.   :: web: http://www.qusoft.no   mail: support@qusoft.no     ::
  10.   ::                             fax: +47 22 41 74 91        ::
  11.   ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: }
  12.  
  13. unit Menu;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  19.   Forms, Dialogs, StdCtrls, Quickrpt, List, GrpList, MD, ExtCtrls, qrextra;
  20.  
  21. type
  22.   TMainForm = class(TForm)
  23.     GroupBox1: TGroupBox;
  24.     SimpleList: TRadioButton;
  25.     GroupedList: TRadioButton;
  26.     MasterDetail: TRadioButton;
  27.     SQLMasterDetail: TRadioButton;
  28.     Description: TMemo;
  29.     Preview: TButton;
  30.     Print: TButton;
  31.     Exit: TButton;
  32.     Label1: TLabel;
  33.     Label2: TLabel;
  34.     Label3: TLabel;
  35.     Label4: TLabel;
  36.     Label5: TLabel;
  37.     Shape1: TShape;
  38.     procedure SimpleListClick(Sender: TObject);
  39.     procedure PreviewClick(Sender: TObject);
  40.     procedure PrintClick(Sender: TObject);
  41.     procedure ExitClick(Sender: TObject);
  42.     procedure FormActivate(Sender: TObject);
  43.     procedure GroupedListClick(Sender: TObject);
  44.     procedure MasterDetailClick(Sender: TObject);
  45.   private
  46.     FReport : TQuickRep;
  47.     procedure SetReport(Value : TQuickRep);
  48.   public
  49.     property Report : TQuickRep read FReport write SetReport;
  50.   end;
  51.  
  52. var
  53.   MainForm: TMainForm;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58.  
  59. procedure TMainForm.SetReport(Value : TQuickRep);
  60. begin
  61.   FReport:=Value;
  62.   Description.Lines.Assign(Report.Description);
  63. end;
  64.  
  65. procedure TMainForm.PreviewClick(Sender: TObject);
  66. begin
  67.   Report.Preview;
  68. end;
  69.  
  70. procedure TMainForm.PrintClick(Sender: TObject);
  71. begin
  72.   Report.Print;
  73. end;
  74.  
  75. procedure TMainForm.ExitClick(Sender: TObject);
  76. begin
  77.   Close;
  78. end;
  79.  
  80. procedure TMainForm.FormActivate(Sender: TObject);
  81. begin
  82.   if Description.Lines.Count = 0 then
  83.     SimpleListClick(Self);
  84. end;
  85.  
  86. procedure TMainForm.SimpleListClick(Sender: TObject);
  87. begin
  88.   Report:=ListForm.QuickRep;
  89. end;
  90.  
  91. procedure TMainForm.GroupedListClick(Sender: TObject);
  92. begin
  93.   Report := GrpListForm.QuickRep;
  94. end;
  95.  
  96. procedure TMainForm.MasterDetailClick(Sender: TObject);
  97. begin
  98.   Report:=MDForm.QuickRep;
  99. end;
  100.  
  101. end.
  102.